Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/1-Reference/Success Stories/Lead Information/Lead Information/stack_-1.xml

Extensible Markup Language | 1990-04-18 | 8KB | 16 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>7</cardCount>
    <cardID>3243</cardID>
    <listID>2149</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>--------------------------------------------------------------------------                        Stack: Lead Information                     ----                    © 1989 Apple Computer, Inc. &                   ----                       ©1990 Medior Productions                     ----                            ©1989 HyperPro                          ----                                                                    ----                            3/8/90 4:01 PM                          ----                             Version: 1.1                           ----                   Based on version 1.0f5 by HyperPro               ---------------------------------------------------------------------------- XCMDs to follow:-- # 22291    NewItem-- # 22290    NewWindow-- # 22294    SetWindow-- XFCNs to follow:-- # 22292    Display------------------------------------------------------------------------on openStackglobal gOrg,gConfig,gApp,gBack,gMarkif cantModify of this stack is true thenanswer "Please unlock this file and the disk." with "Quit"doMenu "Quit HyperCard"exit openStackend ifput false into gorgput false into gconfigput false into gMarkput false into gAppput false into gBackget offset("1",cd fld "status" of cd "intro")if it ≠ 0 thenanswer "Clear the previously entered lead?" with "Clear lead"¬or "Don’t clear"if it is "Clear lead" then resetend ifchoose browse tool --just to make surepass openStackend openStack-------------------------------- openCard ------------------------------on openCardhide menubarpass openCardend openCard--------------------------------- DoDone -------------------------------on DoDoneglobal gOrg,gMark,gBack,gApp,gconfig,myfilenameset cursor to watchif the heapspace <= 200000 thenget makedialog ("You do not have enough memory. "&&¬"Expect errors if you continue.",¬"Cancel","Quit")if it is "quit" then doMenu "Quit HyperCard"end iflock screenput the short name of this cd into lastcdgo cd "Org"send closecard to cd "Org"go cd "Mark"send closecard to cd "Mark"go cd "Config"send closecard to cd "Config"go cd "App"send closecard to cd "App"go cd "Back"send closecard to cd "Back"go cd lastcdunlock screenlock screen--check if all sections are completedif gOrg and gMark and gBack and gApp and gconfig thenget makedialog ("Are you sure you’re ready to create the file?"¬,"No","Yes")get last item of itif it is "No" thenexit DoDoneend if--create a text file containing the dataput value of word 2 of long name of this stack into myFileNamerepeat until last char of myFileName is ":"delete last char of myFileNameend repeatput "Link to SS Program " after myFileNameput 2 into counterrepeatopen file myFileNameread from file myFileName for 16384if it is empty thenclose file myFileNameexit repeatend ifclose file myFileNameif last char of myFileName ≠ "m" then delete last char of myfilenameput myFileName & counter into myFileNameadd 1 to counterend repeatopen file myFileNamewrite projectData() to file myfilenameclose file myFileNameget makedialog ("Please send the data file to Apple on Applelink."¬,"OK")get makedialog ("Enter another lead, return to Success Stories,"&¬" or Quit.","Quit","Return","Enter Lead")get last item of itif  it is "Enter Lead" thengo first cd of this stackunlock screenunlock screenwait 2 secondsset cursor to watchsend openstack to stackelse if it is "Return" thengo cd "Introduction" of stack "Success Stories"exit to HyperCardelse doMenu "Quit HyperCard"--elseanswer "You did not complete all the sections." with¬"Quit Anyway" or "Show Me"if it is "Quit Anyway" thenget makedialog ("Data incomplete.  No data file will be created."¬& " Return to Success Stories or Quit.","Return","Quit","Cancel")get last item of itif it is "quit" thendoMenu "Quit HyperCard"exit DoDoneelse if it is "Return" thengo cd "Introduction" of stack "Success Stories"exit to HyperCardend ifelseif not gOrg then go cd "Org"else if not gMark then go cd "Mark"else if not gConfig then go cd "Config"else if not gApp then go cd "App"else if not gBack then go cd "Back"end ifend ifend Dodone------------------------------- projectData ----------------------------function projectDataglobal gthefile,alldata,gtheorg,gthemark,gtheConfig,gtheApp,gtheback,myfilenameput empty into gthefileput empty into alldataset cursor to watchlock screengo cd "Org"send BuildIt1 to this cdput bg fld "input" of cd "org" after alldatago cd "Mark"send BuildIt2 to this cdput bg fld "input" of cd "mark" after alldatago cd "config"send  BuildIt3 to this cdput bg fld "input" of cd "config" after alldatago cd "App"send BuildIt4 to this cdput bg fld "input" of cd "app" after alldatago cd "Back"send BuildIt5 to this cdput bg fld "input" of cd "back" after alldatareturn allDataend projectData---------------------------------- reset -------------------------------on resetglobal gOrg,gConfig,gApp,GBack,gMarkset cursor to watchlock screengo cd "org"send resetCard to cd "org"go cd "mark"send resetCard to cd "mark"go cd "config"send resetCard to cd "config"go cd "app"send resetCard to  cd "app"go cd "back"send resetCard to cd "back"put false into gorgput false into gconfigput false into gMarkput false into gAppput false into gConfiggo cd 1put empty into cd fld "status"unlock screenend reset-------------------------------- arrowKey ------------------------------on arrowKeyif the selectedField is empty then exit arrowKeyelseset textArrows to truepass arrowKeyend ifend arrowKey--------------------------------- domenu -------------------------------on domenu menu                       --// Added by Medior, Inc. 2/20/90global RPStackNameif menu is in "Home,Quit HyperCard" and RPStackName is not empty thenset cursor to watchput RPStackName into shortnamerepeat until offset(":",shortname) = 0delete char 1 to offset(":",shortname) of shortnameend repeatdelete last char of shortnameanswer "This will return to "&shortname&"." with "Cancel" or "OK"if it is "Cancel" then exit domenuset cursor to watchlock screengo RPStackNameunlock screen with dissolveexit domenuelse if menu is "Last" then exit doMenuelse pass doMenuend domenu------------------------------- closeField -----------------------------on closeFieldput word 1 to 9999 of target into itrepeat while first char of it is returndelete first char of itend repeatrepeat while last char of it is returndelete last char of itend repeatput word 1 to 9999 of it into itput it into targetif style of the target is "scrolling"then set scroll of the target to 0end closeField------------------------------- makedialog -----------------------------function makedialog strng,btnOne,btnTwo,btnThree-- example  get makedialog ("this is a test","Enter Lead","two","three")global gAnswerDefined,sLine,selectionFlagif btnThree is not empty thenput btnOne into xbtnThreeput btnTwo into xbtnTwoput btnThree into xbtnOneelseif btnTwo is not empty thenput btnOne into xbtnTwoput btnTwo into xbtnOneelseif btnOne is not empty thenput btnOne into xbtnOneelse put "Cancel" into xbtnOneend ifend ifsetWindow 5NewWindow 328,90,"centered",0,1,"FakeAnswer","visible"NewItem "StaticText",9,11,314,45,strng,"Chicago",12,"plain"NewItem "RoundButton",223,55,314,83,xBtnOne,13,"noCommand",""if btnTwo is not emptythen NewItem "RoundButton",112,59,203,79,xBtnTwo,0,"noCommand",""if btnThree is not emptythen NewItem "RoundButton",6,59,97,79,xBtnThree,46,"Command",""get Display(0,5)if item 1 of it = "ok" then return last item of itend MakeDialog</scr